home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / backup.arc / BKP101.RPG < prev    next >
Text File  |  1991-12-04  |  4KB  |  45 lines
  1. ~    H*  *  CRTRPGPGM   PGM(BKP101.YOURLIB) SRCFILE(YOUSRC.YOURLIB) +           
  2. ~    H*                   USRPRF(*USER) PUBAUT(*NORMAL)            *            
  3. ~    H*                                                                         
  4. ~    H*  ***********************************************************            
  5. ~    H*  * PROGRAM:  BKP101.YOURLIB                                *            
  6. ~    H*  * DISCRIPTION: PRINT BACKUP FILE ENTRIES                  *            
  7. ~    H*  *                                                         *            
  8. ~    H*  *                                                         *            
  9. ~    H*  * COMPILATION OPTIONS: NONE                               *            
  10. ~    H*  * SWITCHES: NONE                                          *            
  11. ~    H*  *                                                         *            
  12. ~    H*  * WRITEN BY BRIAN GREWAL.                                 *            
  13. ~    H*  *                                                         *            
  14. ~    H*  * DITO DITTO DITTTO                                       *            
  15. ~    H*  *                                                         *            
  16. ~    H*  *                                                         *            
  17. ~    H*  *                                                         *            
  18. ~    H*  *                                                         *            
  19. ~    H*  ***********************************************************            
  20. ~    H*                                                                         
  21.      FBACKUPF IP  E           K        DISK                                     
  22.      FQSYSPRT O   F     132     OF     PRINTER                                  
  23.      IRBACKUPF    01                                                            
  24.      I                                              OBJNAML2                    
  25.      I                                              LIBNAML4                    
  26.      I                                              SAVCODL6                    
  27.      I                                              BKPTYPL8                    
  28.      OQSYSPRT H   03   1P                                                       
  29.      O       OR        OF                                                       
  30.      O                                   76 'BACKUP FILE ENTRIES'               
  31.      O                         UDATE Y  110                                     
  32.      O                                  120 'PAGE'                              
  33.      O                         PAGE  Z  124                                     
  34.      OQSYSPRT H 11     1P                                                       
  35.      O       OR        OF                                                       
  36.      O                                   12 'BACKUP TYPE'                       
  37.      O                                   30 'SAVE CODE'                         
  38.      O                                   58 'LIBRARY NAME'                      
  39.      O                                   76 'OBJECT NAME'                       
  40.      O        D 1      01                                                       
  41.      O                 L8      BKPTYP     8                                     
  42.      O                 L6      SAVCOD    25                                     
  43.      O                 L4      LIBNAM    56                                     
  44.      O                 L2      OBJNAM    74                                     
  45.